select rows that contain a character but does not contain another in R